home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / dev / amos / SoupDEMO.lha / AlphaSoup.amos / AlphaSoup.amosSourceCode next >
AMOS Source Code  |  1997-11-02  |  1KB  |  84 lines
  1. '*************************** 
  2. '*    AMOS Professional    *             
  3. '*                         * 
  4. '*       ALPHABET SOUP     *               
  5. '*                         *               
  6. '* (c) Technomancers       *               
  7. '*                         * 
  8. '*     Miguel Baron        * 
  9. '*************************** 
  10. '
  11. '------------------------------------------- 
  12. 'GENERAL 
  13. '
  14. 'Files Necessary to run: 
  15. '                       soup.anim    -Animation intro
  16. '                       music.abk    -Audio Stuff 36 samples 1-0,a-z,music 
  17. '
  18. '------------------------------------------- 
  19. '
  20. Screen Open 0,640,200,16,Hires : Flash Off : Hide 
  21. Curs Off : Cls 0 : Paper 0 : Pen 6
  22. 'Open Animation
  23. Open In 1,"soup.anim"
  24. N=Frame Load(1 To 10,1000)
  25. Close 
  26. 'N has # of frames now 
  27. Load "music.abk",5
  28. Sam Bank 5
  29. Wait Vbl 
  30.  
  31. '
  32. 'Play Animation
  33. P=Frame Play(10,3,0)
  34. Double Buffer 
  35. For X=2 To N-1
  36.    P=Frame Play(P,1)
  37.    Screen Swap 
  38.    Wait Vbl : Wait Vbl 
  39. Next X
  40. Print "Hit Q to End!"
  41.  
  42. '
  43.  
  44.  
  45.  
  46. Do 
  47.    While K$=""
  48.       K$=Inkey$
  49.    Wend 
  50.    
  51.    N=Asc(K$)
  52.    If(N>47 and N<58) Then Gosub NUMBER
  53.    If(N>96 and N<122) Then Gosub LETTER
  54.    If N=27 Then Goto FINISH
  55.    Wait 50
  56.    K$=""
  57. Loop 
  58.  
  59.  
  60.  
  61. NUMBER:
  62. Sam Loop Off 
  63. Sam Stop 
  64. N=N-47
  65. Sam Play N
  66. Clear Key 
  67.  
  68. Wait 20
  69. Return 
  70.  
  71. LETTER:
  72. Sam Loop Off 
  73. Sam Stop 
  74. N=N-86
  75. Sam Play N
  76. Clear Key 
  77.  
  78. Wait 20
  79. Return 
  80.  
  81. FINISH:
  82. Sam Loop Off 
  83. Sam Stop 
  84. Edit